【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了JBXX_GSXXFORM.pas提供大家参考,希望对大家有所帮助!
unit JBXX_GSXXFORM;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls, ADODB, ShellApi;
type
TJBXX_GSXX = class(TForm)
BitBtn1: TBitBtn;
Label1: TLabel;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Shape8: TShape;
Bevel1: TBevel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
Function jbxx_gsxx_aaa : Integer;//月营业分析统计
{ Private declarations }
public
{ Public declarations }
end;
var
JBXX_GSXX: TJBXX_GSXX;
implementation
uses MR_WXFORM;
{$R *.DFM}
Function tjbxx_gsxx.jbxx_gsxx_aaa; //控件状态设置
begin
dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;
dbedit8.readonly:=true;
bitbtn4.enabled:=true; //修改按钮可用
bitbtn2.enabled:=false; //保存按钮可用
bitbtn3.enabled:=false; //取消修改按钮可用
end;
procedure TJBXX_GSXX.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin //回车
If (ActiveControl Is Tdbedit) Then
Perform(WM_nextdlgctl,0,0);
end;
end;
procedure TJBXX_GSXX.BitBtn4Click(Sender: TObject); //修改公司信息
begin
bitbtn4.enabled:=false; //修改按钮不可用
bitbtn2.enabled:=true; //保存按钮可用
bitbtn3.enabled:=true; //取消修改按钮可用
dbedit1.ReadOnly:=false;
dbedit2.readonly:=false;
dbedit3.readonly:=false;
dbedit4.readonly:=false;
dbedit5.readonly:=false;
dbedit6.readonly:=false;
dbedit7.readonly:=false;
dbedit8.readonly:=false;
dbedit1.setfocus;
end;
procedure TJBXX_GSXX.BitBtn2Click(Sender: TObject); //取消公司信息修改
begin
jbxx_gsxx_aaa;
end;
procedure TJBXX_GSXX.BitBtn3Click(Sender: TObject); //保存公司信息
begin
If length(dbedit1.Text) > 0 Then begin
If length(dbedit7.Text) > 0 Then begin
MR_WX.adotable1.Post;
jbxx_gsxx_aaa;
MR_WX.StatusBar1.Panels[0].text:=
MR_WX.ADOTable1.fieldbyname('公司名称').asstring;
end else begin
messagedlg('公司地址不能为空,请添加。',mterror,[mbok],0);
dbedit7.setfocus;
end;
end else begin
messagedlg('公司名称不能为空,请添加。',mterror,[mbok],0);
dbedit1.setfocus;
end;
end;
procedure TJBXX_GSXX.BitBtn1Click(Sender: TObject); //关闭当前窗体,返回主窗体
begin
JBXX_GSXX.close;
end;
end.