开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
f_gzrl.pas
资源名称：ERP人力资源管理系统毕业设计.rar　[点击查看]
上传用户：lcqxtx
上传日期：2013-02-15
资源大小：530k
文件大小：5k
源码类别：

企业管理

开发平台：

Delphi

f_gzrl.pas：源码内容
  1. unit f_gzrl;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Mask, DBCtrls, DB, ExtCtrls, ADODB, Buttons;
  9. type
  10.   Tw_gzrl = class(TForm)
  11.     ado_gzxt: TADOQuery;
  12.     data_gzxt: TDataSource;
  13.     Panel1: TPanel;
  14.     StaticText1: TStaticText;
  15.     GroupBox1: TGroupBox;
  16.     ado_gzxtg_nf: TStringField;
  17.     ado_gzxtg_yf: TStringField;
  18.     ado_gzxtrs_id: TStringField;
  19.     ado_gzxtrs_name: TStringField;
  20.     ado_gzxtg_jbgz: TFloatField;
  21.     ado_gzxtg_fdgz: TFloatField;
  22.     ado_gzxtg_grss: TFloatField;
  23.     ado_gzxtg_gwgz: TFloatField;
  24.     ado_gzxtg_shbz: TFloatField;
  25.     ado_gzxtg_bxkc: TFloatField;
  26.     ado_gzxtg_zgz: TFloatField;
  27.     ado_gzxtg_zkc: TFloatField;
  28.     ado_gzxtg_sfgz: TFloatField;
  29.     Label1: TLabel;
  30.     DBEdit1: TDBEdit;
  31.     Label2: TLabel;
  32.     DBEdit2: TDBEdit;
  33.     Label3: TLabel;
  34.     DBEdit3: TDBEdit;
  35.     Label4: TLabel;
  36.     DBEdit4: TDBEdit;
  37.     Label5: TLabel;
  38.     DBEdit5: TDBEdit;
  39.     Label6: TLabel;
  40.     DBEdit6: TDBEdit;
  41.     Label7: TLabel;
  42.     DBEdit7: TDBEdit;
  43.     Label8: TLabel;
  44.     DBEdit8: TDBEdit;
  45.     Label9: TLabel;
  46.     DBEdit9: TDBEdit;
  47.     Label10: TLabel;
  48.     DBEdit10: TDBEdit;
  49.     Label11: TLabel;
  50.     DBEdit11: TDBEdit;
  51.     Label12: TLabel;
  52.     DBEdit12: TDBEdit;
  53.     GroupBox2: TGroupBox;
  54.     Button8: TButton;
  55.     Button1: TButton;
  56.     BitBtn1: TBitBtn;
  57.     Button6: TButton;
  58.     Button5: TButton;
  59.     Button4: TButton;
  60.     Button7: TButton;
  61.     Button3: TButton;
  62.     Button2: TButton;
  63.     Edit1: TEdit;
  64.     Edit3: TEdit;
  65.     Label14: TLabel;
  66.     DBEdit13: TDBEdit;
  67.     Edit2: TEdit;
  68.     procedure Button2Click(Sender: TObject);
  69.     procedure Button3Click(Sender: TObject);
  70.     procedure Button7Click(Sender: TObject);
  71.     procedure Button4Click(Sender: TObject);
  72.     procedure Button5Click(Sender: TObject);
  73.     procedure Button6Click(Sender: TObject);
  74.     procedure Button8Click(Sender: TObject);
  75.     procedure Button1Click(Sender: TObject);
  76.     procedure ado_gzxtCalcFields(DataSet: TDataSet);
  77.     procedure FormShow(Sender: TObject);
  78.     procedure BitBtn1Click(Sender: TObject);
  79.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  80.     procedure FormCreate(Sender: TObject);
  81.   private
  82.     { Private declarations }
  83.   public
  84.     { Public declarations }
  85.   end;
  87. var
  88.   w_gzrl: Tw_gzrl;
  90. implementation
  92. uses f_main;
  94. {$R *.dfm}
  96. procedure Tw_gzrl.Button2Click(Sender: TObject);
  97. begin
  98. try
  99. dbedit1.text:='';
  100. dbedit2.text:='';
  101. dbedit3.text:='';
  102. dbedit4.text:='';
  103. dbedit5.text:='';
  104. dbedit6.text:='';
  105. dbedit7.text:='';
  106. dbedit8.text:='';
  107. dbedit9.text:='';
  108. dbedit10.text:='';
  109. dbedit11.text:='';
  110. dbedit12.text:='';
  111. edit1.Text:='';
  112. edit2.Text:='' ;
  113. edit3.Text :='';
  114. ado_gzxt.Append;
  115. except
  116.   application.MessageBox('与管理联系！','提示',mb_ok+mb_iconinformation);
  117. end;
  118.  end;
  119. procedure Tw_gzrl.Button3Click(Sender: TObject);
  120. begin
  121. ado_gzxt.Edit;
  122. ado_gzxt.Post;
  123. showmessage('数据修改成功！');
  124. edit1.Text:='';
  125. edit2.Text:='' ;
  126. edit3.Text :='';
  127. end;
  129. procedure Tw_gzrl.Button7Click(Sender: TObject);
  130. begin
  131. if ado_gzxt.Modified then
  132.    ado_gzxt.Post;
  133. end;
  134. procedure Tw_gzrl.Button4Click(Sender: TObject);
  135. begin
  136. ado_gzxt.Prior;
  137. edit1.Text:='';
  138. edit2.Text:='' ;
  139. edit3.Text :='';
  140. end;
  142. procedure Tw_gzrl.Button5Click(Sender: TObject);
  143. begin
  144. ado_gzxt.Next;
  145. edit1.Text:='';
  146. edit2.Text:='' ;
  147. edit3.Text :='';
  148. end;
  150. procedure Tw_gzrl.Button6Click(Sender: TObject);
  151. begin
  152. ado_gzxt.First;
  153. showmessage('当前是第一条记录');
  154. edit1.Text:='';
  155. edit2.Text:='' ;
  156. edit3.Text :='';
  157. end;
  159. procedure Tw_gzrl.Button8Click(Sender: TObject);
  160. begin
  161. ado_gzxt.Next;
  162. showmessage('当前是第一条记录');
  163. edit1.Text:='';
  164. edit2.Text:='' ;
  165. edit3.Text :='';
  167. end;
  168. procedure Tw_gzrl.Button1Click(Sender: TObject);
  169. begin
  170. edit1.Text:=dbedit11.Text;
  171. edit2.Text:=dbedit13.text;
  172. edit3.Text:=dbedit12.Text;
  174. end;
  175. procedure Tw_gzrl.ado_gzxtCalcFields(DataSet: TDataSet);
  176. begin
  177.  ado_gzxtg_zgz.Value:=ado_gzxtg_jbgz.Value+ado_gzxtg_fdgz.Value+ado_gzxtg_shbz.Value;
  178.  //ado_gzxtg_bxkc.Value:=ado_gzxtg_jbgz.Value*0.2;
  179. // ado_gzxtg_grss.Value:=ado_gzxtg_jbgz.Value*0.03;
  180. ado_gzxtg_zkc.Value:= ado_gzxtg_bxkc.Value+ado_gzxtg_grss.Value;
  181.  ado_gzxtg_sfgz.Value:=ado_gzxtg_zgz.Value-ado_gzxtg_bxkc.Value-ado_gzxtg_grss.Value;
  182. end;
  184. procedure Tw_gzrl.FormShow(Sender: TObject);
  185. begin
  186. //ado_gzxt.Refresh ;
  187. //edit1.Text:='';
  188. ///edit2.Text:='';
  189. //edit3.Text:='';
  190. end;
  192. procedure Tw_gzrl.BitBtn1Click(Sender: TObject);
  193. begin
  194. close;
  195. end;
  197. procedure Tw_gzrl.FormClose(Sender: TObject; var Action: TCloseAction);
  198. begin
  199. w_main.Enabled:=true;
  200. end;
  202. procedure Tw_gzrl.FormCreate(Sender: TObject);
  203. begin
  204. w_main.Enabled:=false;
  205. end;
  207. end.