unitmain.pas

DELPHI应用一则

unit UnitMAIN;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, Buttons, ExtCtrls, Grids, ImgList, StdCtrls, DBGrids,
  Wwdbigrd, Wwdbgrid, Db, DBTables, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl,
  dxDBGrid, dxCntner, dxExEdtr,IniFiles;

type
  TFormMAIN = class(TForm)
    MainMenu1: TMainMenu;
    N4: TMenuItem;
    Panel1: TPanel;
    SBtc: TSpeedButton;
    Bevel3: TBevel;
    SBzj: TSpeedButton;
    TimeFresh: TTimer;
    Status: TStatusBar;
    F1: TMenuItem;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    N3: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    SBsc: TSpeedButton;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    Bevel1: TBevel;
    SpeedButton4: TSpeedButton;
    N1: TMenuItem;
    N2: TMenuItem;
    DBGskxx: TdxDBGrid;
    SpeedButton1: TSpeedButton;
    DBGskxxColumn1: TdxDBGridColumn;
    DBGskxxColumn2: TdxDBGridColumn;
    DBGskxxColumn3: TdxDBGridColumn;
    DBGskxxColumn4: TdxDBGridColumn;
    DBGskxxColumn5: TdxDBGridColumn;
    DBGskxxColumn6: TdxDBGridColumn;
    DSxykmx: TDataSource;
    Panel2: TPanel;
    Edno: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    SpeedButton2: TSpeedButton;
    DBGskxxColumn7: TdxDBGridColumn;
    CBall: TCheckBox;
    N5: TMenuItem;
    DBGskxxBZ1: TdxDBGridColumn;
    DBGskxxBZ2: TdxDBGridColumn;
    DBGskxxBZ3: TdxDBGridColumn;
    DBGskxxBZ4: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure TimeFreshTimer(Sender: TObject);
    procedure SBtcClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N14Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure SBzjClick(Sender: TObject);
    procedure SBxgClick(Sender: TObject);
    procedure SBscClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure DBGskxxReloadGroupList(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGskxxDblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGskxxbz1GetText(Sender: TObject; ANode: TdxTreeListNode;
      var AText: String);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdnoKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CBallClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
     procedure rowset;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMAIN: TFormMAIN;
  myIniFile:TIniFile;
implementation

Uses Udm, UnitFPMXXG, UnitUSER, UnitUSERSZ, UnitLYDWSZ, UnitXXCX,insertmoney,
  BBRQ, UnitXYKSZ,UnitCHANGE;

{$R *.DFM}
procedure Tformmain.rowset;
var
  filename,c1,c2,c3,c4:string;
  begin

     filename:=ExtractFilePath(ParamStr(0))+'cs.ini';
     myIniFile:=TIniFile.Create(filename);
     DBGskxxBZ1.FieldName:=myIniFile.ReadString('config','fieldname1','bz1');
     DBGskxxBZ2.FieldName:=myIniFile.ReadString('config','fieldname2','bz2');
     DBGskxxBZ3.FieldName:=myIniFile.ReadString('config','fieldname3','bz3');
     DBGskxxBZ4.FieldName:=myIniFile.ReadString('config','fieldname4','bz4');

     c1:=myIniFile.ReadString('config','caption1','');
     c2:=myIniFile.ReadString('config','caption2','');
     c3:=myIniFile.ReadString('config','caption3','');
     c4:=myIniFile.ReadString('config','caption4','');

     if c1<>'' then
     begin
       DBGskxxBZ1.Caption:=c1;
       DBGskxxBZ1.Visible:=True;
     end
     else
     DBGskxxBZ1.Visible:=False;

     if c2<>'' then
     begin
       DBGskxxBZ2.Caption:=c2;
       DBGskxxBZ2.Visible:=True;
     end
     else
     DBGskxxBZ2.Visible:=False;

     if c3<>'' then
     begin
       DBGskxxBZ3.Caption:=c3;
       DBGskxxBZ3.Visible:=True;
     end
     else
     DBGskxxBZ3.Visible:=False;

    if c4<>'' then
     begin
       DBGskxxBZ4.Caption:=c4;
       DBGskxxBZ4.Visible:=True;
     end
     else
     DBGskxxBZ4.Visible:=False;
  end;
procedure TFormMAIN.FormShow(Sender: TObject);
begin
  status.Panels[0].Text:='当前操作员:'+DM.Hczy;
  PageControl1.ActivePageIndex:=0;
  DBGskxx.FullExpand;
  DM.ADOxykmx.Open;
  rowset;

end;

procedure TFormMAIN.TimeFreshTimer(Sender: TObject);
begin
  status.Panels[4].Text:=formatdatetime('yyyy"年"m"月"d"日  "dddd  '  +'hh:mm:ss',NOW);
end;

procedure TFormMAIN.SBtcClick(Sender: TObject);
begin
  if application.Messagebox('确认退出系统吗？','系统提示',MB_yesno+MB_defbutton2+MB_iconinformation)=IDYES then
    application.Terminate;
end;

procedure TFormMAIN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure TFormMAIN.N14Click(Sender: TObject);
begin
  FormUSER:=TFormUSER.Create(self);
  FormUSER.showmodal;
  freeandnil(FormUSER);
end;

procedure TFormMAIN.N18Click(Sender: TObject);
begin
  FormLYDWSZ:=TFormLYDWSZ.Create(self);
  FormLYDWSZ.showmodal;
  freeandnil(FormLYDWSZ);
end;

procedure TFormMAIN.SBzjClick(Sender: TObject);
begin

  DM.ADOxykmx.Append;
  DM.ADOxykmxcardmc.Value:='';
  dm.ADOxykmxcardno.Value:='';
  dm.ADOxykmxamount.Value:=0;
  dm.ADOxykmxondate.Value:=DATE;
  dm.ADOxykmxbz.Value:='';
  DM.ADOxykmxcardname.Value:='';
  DM.ADOxykmxBZ1.Value:='';
  DM.ADOxykmxBZ2.Value:='';
  DM.ADOxykmxBZ3.Value:='';
  DM.ADOxykmxBZ4.Value:='';

  FormFPMXXG:=TFormFPMXXG.Create(self);
  FormFPMXXG.Caption:='增加档案信息';
  FormFPMXXG.showmodal;
  freeandnil(FormFPMXXG);
end;

procedure TFormMAIN.SBxgClick(Sender: TObject);
begin
  { frminsertmoney:=Tfrminsertmoney.Create(Self);
   frminsertmoney.edcom.Text:=DM.ADOda.FIELDBYNAME('compuname').AsString;
   frminsertmoney.Edsx.Text:=DM.ADOda.FIELDBYNAME('NoName').AsString;
   frminsertmoney.dxRQ.Text:=dm.ADOda.fieldbyname('rq').AsString;
   frminsertmoney.ShowModal;
   FreeAndNil(frminsertmoney);  }
end;

procedure TFormMAIN.SBscClick(Sender: TObject);
begin
  if application.Messagebox('确认删除此客户信息信息吗？','系统提示',MB_yesno+MB_defbutton1+MB_iconinformation)=IDYES then
  begin
    try
      dm.ADOCON.BeginTrans;
      with dm.ADOtemp do
      begin
        Close;
        sql.Clear;
        sql.Add('delete from xykmx');
        SQL.Add('where cardno=:no and id=:id');
        Parameters.ParamByName('no').Value:=DM.ADOxykmxcardno.AsString;
        Parameters.ParamByName('id').Value:=dm.ADOxykmxid.AsInteger;
        Prepared;
        ExecSQL;
      end;
      dm.ADOCON.CommitTrans;
      except
      dm.ADOCON.RollbackTrans;
    end;
  end;
  dm.ADOxykmx.Close;
  dm.ADOxykmx.Open;
end;

procedure TFormMAIN.SpeedButton4Click(Sender: TObject);
begin
  FRMBBRQ:=TFRMBBRQ.Create(Self);
  FRMBBRQ.ShowModal;
  FreeAndNil(FRMBBRQ);
end;

procedure TFormMAIN.N5Click(Sender: TObject);
begin
  FormXXCX:=TFormXXCX.Create(self);
  FormXXCX.showmodal;
  freeandnil(FormXXCX);
end;

procedure TFormMAIN.DBGskxxReloadGroupList(Sender: TObject);
begin
  DBGskxx.FullExpand;
end;

procedure TFormMAIN.BitBtn1Click(Sender: TObject);
begin
  with dm.ADOxykmx do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from xykmx');
    SQL.Add('where cardno=:no');
    Parameters.ParamByName('no').Value:=Edno.Text;
    Prepared;
    Open;
  end;
 end;

procedure TFormMAIN.SpeedButton2Click(Sender: TObject);
  begin
   F_CHANGE:=TF_CHANGE.Create(Self);
        WITH  F_CHANGE DO
         begin
            EdCOM.Text:=dm.ADOxykmxcardname.AsString;
            EdRYSJ.Text:=dm.ADOxykmxcardno.AsString;
            EdLXR.Text:=dm.ADOxykmxbankmc.AsString;
            CSX.Text:=dm.ADOxykmxcardmc.AsString;
            dxDH.Text:=dm.ADOxykmxbz.AsString;
         end;
       F_CHANGE.ShowModal;
       FreeAndNil(F_CHANGE);
   end;
procedure TFormMAIN.DBGskxxDblClick(Sender: TObject);
begin
  F_CHANGE:=TF_CHANGE.Create(Self);
        WITH  F_CHANGE DO
         begin
            EdCOM.Text:=dm.ADOxykmxcardname.AsString;
            EdRYSJ.Text:=dm.ADOxykmxcardno.AsString;
            EdLXR.Text:=dm.ADOxykmxbankmc.AsString;
            CSX.Text:=dm.ADOxykmxcardmc.AsString;
            dxDH.Text:=dm.ADOxykmxbz.AsString;
         end;
       F_CHANGE.ShowModal;
       FreeAndNil(F_CHANGE);
end;
procedure TFormMAIN.FormCreate(Sender: TObject);
begin
  DBGskxxBZ1.Visible:=False;
  DBGskxxBZ2.Visible:=False;
  DBGskxxBZ3.Visible:=False;
  DBGskxxBZ4.Visible:=False;

end;

procedure TFormMAIN.DBGskxxbz1GetText(Sender: TObject;
  ANode: TdxTreeListNode; var AText: String);
begin
 AText:='BZ1';
end;

procedure TFormMAIN.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
   SBzjClick(Sender);
end;

procedure TFormMAIN.EdnoKeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9',#8]) then
 key:=#0;
end;

procedure TFormMAIN.SpeedButton1Click(Sender: TObject);
begin
 dm.ADOxykmx.Close;
 dm.ADOxykmx.Open;
end;

procedure TFormMAIN.CBallClick(Sender: TObject);
begin
  if CBall.Checked then
  begin
    with dm.ADOxykmx do
    begin
      close;
      sql.Clear;
      sql.Add('select * from xykmx');
      Prepared;
      Open;
    end;
  end;
end;

procedure TFormMAIN.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  myIniFile.Free;
end;

end.