jbxx_gsxxform.pas

这是用Delphi编写的维修管理系统。主要功能包括业务管理

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.