unitfpmxxg.pas

DELPHI应用一则

unit UnitFPMXXG;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DBCtrls, dxCntner, dxEditor, dxExEdtr, dxEdLib,DB,UnitMAIN, dxDBELib, Mask,IniFiles;

type
  TFormFPMXXG = class(TForm)
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    BBqr: TButton;
    Button2: TButton;
    DBcommc: TDBEdit;
    DBCsx: TDBComboBox;
    DBss: TDBEdit;
    DSda: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBbz: TDBEdit;
    dxDBDateEdit1: TdxDBDateEdit;
    dxDBCurrencyEdit1: TdxDBCurrencyEdit;
    DBbank: TDBComboBox;
    Label7: TLabel;
    GroupBox2: TGroupBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    L1: TLabel;
    L2: TLabel;
    L3: TLabel;
    L4: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure BBqrClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBcommcKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBCsxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBssKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxDBDateEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxDBCurrencyEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBssKeyPress(Sender: TObject; var Key: Char);
    procedure DBbankKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    procedure CTSZ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormFPMXXG: TFormFPMXXG;
  myIniFile:TIniFile;
implementation

uses UDM;

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

     filename:=ExtractFilePath(ParamStr(0))+'cs.ini';
     myIniFile:=TIniFile.Create(filename);
     c1:=myIniFile.ReadString('config','caption1','');
     c2:=myIniFile.ReadString('config','caption2','');
     c3:=myIniFile.ReadString('config','caption3','');
     c4:=myIniFile.ReadString('config','caption4','');

     //窗体大小设置
    FormFPMXXG.ClientHeight:=216;
    FormFPMXXG.ClientWidth:=353;
    FormFPMXXG.Height:=243;

     if c1<>'' then
     begin
      FormFPMXXG.ClientHeight:=246;
      FormFPMXXG.ClientWidth:=256;
      FormFPMXXG.Height:=273;
      L1.Caption:=c1;
     end;


     if c2<>'' then
     begin
       FormFPMXXG.ClientHeight:=270;
       FormFPMXXG.ClientWidth:=354;
       FormFPMXXG.Height:=297;
       L2.Caption:=c2;
     end;


     if c3<>'' then
     begin
       FormFPMXXG.ClientHeight:=293;
       FormFPMXXG.ClientWidth:=358;
       FormFPMXXG.Height:=320;
       L3.Caption:=c3;

     end;

    if c4<>'' then
     begin
       FormFPMXXG.ClientHeight:=327;
       FormFPMXXG.ClientWidth:=358;
       FormFPMXXG.Height:=354;
       L4.Caption:=c4;
     end;


 end;
procedure TFormFPMXXG.Button2Click(Sender: TObject);
begin
  DM.ADOxykmx.CancelUpdates;
  close;
end;

procedure TFormFPMXXG.BBqrClick(Sender: TObject);
begin
  if DBss.Text='' then
  begin
    application.Messagebox('卡号不能为空，请重新定义!','系统提示',MB_OK+MB_defbutton1+MB_iconinformation);
    DBcommc.SetFocus;
    exit;
  end;

  if DBCsx.Text='' then
  begin
    application.Messagebox('单据类型不能为空，请重新定义!','系统提示',MB_OK+MB_defbutton1+MB_iconinformation);
    DBCsx.SetFocus;
    exit;
  end;
  dm.ADOxykmx.Post;
   with FormMAIN do
   begin
     DBGskxx.FullExpand;
   end;
  close;
end;


procedure TFormFPMXXG.FormShow(Sender: TObject);
begin
  CTSZ;
  with dm.ADOcode do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select mc from cdbank');
    Prepared;
    Open;
  end;
   DBbank.Items.Clear;
   while not dm.ADOcode.Eof do
   begin
     DBbank.Items.Append(dm.ADOcode.Fields[0].AsString);
     dm.ADOcode.Next;
   end;


  with dm.ADOcode do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select mc from cdcard');
    Prepared;
    Open;
  end;
   DBCsx.Items.Clear;
   while not dm.ADOcode.Eof do
   begin
     DBCsx.Items.Append(dm.ADOcode.Fields[0].AsString);
     dm.ADOcode.Next;
   end;

end;

procedure TFormFPMXXG.DBcommcKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=$0D then
 DBCsx.SetFocus;
end;

procedure TFormFPMXXG.DBCsxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=$0D then
 DBbank.SetFocus;
 end;

procedure TFormFPMXXG.DBssKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=$0D then
 DBCsx.SetFocus;
end;

procedure TFormFPMXXG.dxDBDateEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=$0D then
 dxDBCurrencyEdit1.SetFocus;
end;

procedure TFormFPMXXG.dxDBCurrencyEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if Key=$0D then
  DBbz.SetFocus;
end;

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

procedure TFormFPMXXG.DBbankKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 dxDBDateEdit1.SetFocus;
end;

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

end.