contract_check.pas

delphi的一个开发实例

unit Contract_Check;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMenu, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;

type
  Tfrm_Contract_Check = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    XPMenu1: TXPMenu;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Edit1: TLabeledEdit;
    Edit2: TLabeledEdit;
    Edit3: TLabeledEdit;
    GroupBox2: TGroupBox;
    Cmd_Check: TSpeedButton;
    Cmd_Add: TSpeedButton;
    Cmd_Close: TSpeedButton;
    Panel5: TPanel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Cmd_CheckClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Contract_Check: Tfrm_Contract_Check;

implementation

uses Data, func;

{$R *.dfm}

procedure Tfrm_Contract_Check.FormShow(Sender: TObject);
begin
    if ((Contract_Check_Str='Goods_Writestr') or (Contract_Check_Str='Stock_Enterstr')) then
    begin
        with frm_data.ClientDataSet2 do
        begin
            Close;
            CommandText:='';
            CommandText:='Select distinct Contract_Name,Contract_No,Copy_Date from [Stock_contract]';
            try
                Open;
                while not eof do
                begin
                    ComboBox1.Items.Add(frm_data.ClientDataSet2.FieldByName('Contract_Name').AsString);
                    ComboBox2.Items.Add(frm_data.ClientDataSet2.FieldByName('Copy_Date').AsString);
                    ComboBox3.Items.Add(frm_data.ClientDataSet2.FieldByName('Contract_No').AsString);
                    Next;
                end;
            except;
                Application.MessageBox('连接服务器数据库出错，请重新连接，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end;
        end;
        with frm_data.ClientDataSet2 do
        begin
            Close;
            CommandText:='';
            CommandText:='Select Contract_Name,Contract_No,Copy_Date from [Stock_contract]';
            try
                Open;
                frm_data.DataSource1.DataSet:=frm_data.ClientDataSet2;
                DBGrid1.DataSource:=frm_data.DataSource1;
                frm_data.DataSource1.Enabled:=True;
                DBGrid1.Columns[0].Title.Caption:='合同名称'; DBGrid1.Columns[0].Width:=150;
                DBGrid1.Columns[1].Title.Caption:='单据编号'; DBGrid1.Columns[1].Width:=200;
                DBGrid1.Columns[2].Title.Caption:='录单日期'; DBGrid1.Columns[2].Width:=80;
                first;
                Edit1.Text:=frm_data.ClientDataSet2.FieldByName('Contract_Name').AsString;
                Edit2.Text:=frm_data.ClientDataSet2.FieldByName('Contract_No').AsString;
                Edit3.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ClientDataSet2.FieldByName('Copy_Date').AsDateTime);
            except;
                Application.MessageBox('连接服务器数据库出错，请重新连接，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Contract_Check.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet2.Close;
    frm_data.ClientDataSet2.Active:=False;
    Action:=Cafree;
end;

procedure Tfrm_Contract_Check.DBGrid1CellClick(Column: TColumn);
begin
    Edit1.Text:=frm_data.ClientDataSet2.FieldByName('Contract_Name').AsString;
    Edit2.Text:=frm_data.ClientDataSet2.FieldByName('Contract_No').AsString;
    Edit3.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ClientDataSet2.FieldByName('Copy_Date').AsDateTime);
end;

procedure Tfrm_Contract_Check.Cmd_CheckClick(Sender: TObject);
begin
    if ((Contract_Check_Str='Goods_Writestr') or (Contract_Check_Str='Stock_Enterstr')) then
    begin
        if Trim(Edit2.Text)='' then
        begin
            Application.MessageBox('操作失败，【单据编号】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Contract_Check_Result_Str:=Trim(Edit2.Text);
        Close;
    end;
end;

end.