【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-U_Xtgl_Gjgl.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit U_Xtgl_Gjgl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls, Mask, DBCtrls, ActnList,
XPStyleActnCtrls, ActnMan, Buttons;
type
TFrm_Xtgl_Gjgl = class(TForm)
Panel1: TPanel;
ActionManager1: TActionManager;
Action1: TAction;
Action2: TAction;
Action3: TAction;
Action4: TAction;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label3: TLabel;
Label2: TLabel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
GroupBox2: TGroupBox;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
TabSheet2: TTabSheet;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
GroupBox3: TGroupBox;
Label8: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
RadioGroup1: TRadioGroup;
procedure Action1Execute(Sender: TObject);
procedure Action2Execute(Sender: TObject);
procedure Action3Execute(Sender: TObject);
procedure Action4Execute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Xtgl_Gjgl: TFrm_Xtgl_Gjgl;
implementation
uses u_data;
{$R *.dfm}
procedure TFrm_Xtgl_Gjgl.Action1Execute(Sender: TObject);
begin
data.Mr_Gjb.Edit;
data.Mr_Gjb.Post;
application.MessageBox('保存成功','明日科技有限公司');
//
end;
procedure TFrm_Xtgl_Gjgl.Action2Execute(Sender: TObject);
begin
close;
//
end;
procedure TFrm_Xtgl_Gjgl.Action3Execute(Sender: TObject);
begin
//
end;
procedure TFrm_Xtgl_Gjgl.Action4Execute(Sender: TObject);
begin
//
end;
end.
上一篇:
U_xm.pas
下一篇:
投简历到国外的公司需考虑哪些东西?