ztchoose.pas

西京票据管理系统刚刚获得

unit ztchoose;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, dxCntner, dxEditor,
  dxExEdtr, dxEdLib;

type
  Tfrmztchoose = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    dxCurrencyEdit1: TdxCurrencyEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmztchoose: Tfrmztchoose;

implementation
uses UDM;
{$R *.dfm}

procedure Tfrmztchoose.BitBtn2Click(Sender: TObject);
begin
  CLOSE;
end;

procedure Tfrmztchoose.FormShow(Sender: TObject);
begin
  Label1.Caption:=dm.ADOTEMP.fieldbyname('numberid').AsString;
  Label7.Caption:=dm.ADOTEMP.fieldbyname('numbertype').AsString;
  ComboBox1.Text:='';
  DateTimePicker1.Date:=Date;
  dm.ADOCODE.Open;
  DM.ADOZTDJ.Open;
  WITH DM.ADOZTDJ DO
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from meun_zt');
    Prepared;
    Open;
  end;
  ComboBox1.Items.Clear;
  while not dm.ADOZTDJ.Eof do
  begin
    ComboBox1.Items.Append(dm.ADOZTDJ.fieldbyname('djzt').AsString);
    DM.ADOZTDJ.Next;
  end;
end;

procedure Tfrmztchoose.BitBtn1Click(Sender: TObject);
  begin
    if ComboBox1.Text='' then
     begin
       MessageBox(Handle,'单据状态不能为空，必须选择','系统提示',MB_ICONINFORMATION+MB_OK);
       Exit;
     end
     else
    if (dm.ADOCODE.Locate('numberid;numbertype',VarArrayOf([Label1.Caption,Label7.Caption]),[])) then
       begin
        MessageBox(Handle,'数据重复，请重新选择单据','系统提示',MB_ICONINFORMATION+MB_OK);
        Exit;
       end
       else
       dm.ADOCon1.BeginTrans;
        try
          //同时增加一个数据
         DM.ADOCODE.Append;
         dm.ADOCODElibnumber.Value:=dm.ADOTEMP.fieldbyname('libnumber').AsInteger;
         dm.ADOCODElist.Value:=dm.ADOTEMP.fieldbyname('list').AsString;
         dm.ADOCODEnumberid.Value:=Label1.Caption;
         dm.ADOCODEnumbertype.Value:=Label7.Caption;
         dm.ADOCODEhxbz.Value:='1';
         dm.ADOCODErq.Value:=DateTimePicker1.Date;
         dm.ADOCODElypername.AsString:=dm.ADOLOGIN.fieldbyname('username').AsString;
         DM.ADOCODEJINE.Value:=dxCurrencyEdit1.Value;
         dm.ADOCODEA.Value:=True;
         dm.ADOCODEB.Value:=True;
         dm.ADOCODElibnumberplace.Value:=dm.HMC;
         dm.ADOCODEzt.Value:=ComboBox1.Text;
         dm.ADOCODEsxdm.Value:=dm.HDM;
         dm.ADOCODE.Post;

           with dm.ADOTP do
             begin
               Close;
               SQL.Clear;
               SQL.add('delete from libnumber');
               SQL.Add('where numberid=:id and numbertype=:type and libnumberplace=:place and sxdm=:dm');
               Parameters.ParamByName('id').Value:=Label1.Caption;
               Parameters.ParamByName('type').Value:=Label7.Caption;
               Parameters.ParamByName('place').Value:=dm.HMC;
               Parameters.ParamByName('dm').Value:=dm.HDM;
               execsql;
             end;
            dm.ADOCon1.CommitTrans;
          MessageBox(Handle,'数据成功录入','系统提示',MB_ICONINFORMATION+MB_OK);
          Close;
        except
            messagebox(handle,'系统录入失败','系统提示',MB_ICONINFORMATION+MB_OK);
            dm.ADOCon1.RollbackTrans;
        end;
        DM.ADOTEMP.Close;
        DM.ADOTEMP.Open;
  end;

end.