wj_caozuo.pas

完整的公司合同管理系统,基于ACSESS数据库开发,无须安装任何其他插件.附带源码.免费提供.

unit WJ_CaoZuo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
  TfrmWJ_CaoZuo = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    ADOQuery1: TADOQuery;
    BitBtn3: TBitBtn;
    Edit4: TEdit;
    Label5: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    tHtID,tHtName : string;
    procedure Init(const HtID,HtName : string);
    procedure SetLableCaption(const Mark : integer;const HtName : string);
    function SetData(const Mark : integer ; const HtID,tDate,tJine : string) : boolean;
    function GettDate : string;
  end;
  function HeTongCaoZuo(const Mark : integer ; const HtID,HtName : string) : boolean;

var
  frmWJ_CaoZuo: TfrmWJ_CaoZuo;

implementation
   uses pdm,WJ_FuJian;
{$R *.dfm}
function HeTongCaoZuo(const Mark : integer ; const HtID,HtName : string ) : boolean;
begin
  Application.CreateForm(TfrmWJ_CaoZuo,frmWJ_CaoZuo);
  result := false;
  with frmWJ_CaoZuo do
       begin
            Init(HtID,HtName);
            SetLableCaption(Mark,HtName);
            if ShowModal=mrok then
               if SetData(Mark,HtID,GettDate,Edit4.Text) then
                  result := true;


       end;
end;

function TfrmWJ_CaoZuo.GettDate : string;
begin
  result := ForMatDateTime('yyyy-mm-dd',StrToDate(Edit1.Text+'-'+Edit2.Text+'-'+Edit3.Text));
end;

procedure TfrmWJ_CaoZuo.Init(const HtID,HtName : string);
begin
  Edit1.Text := ForMatDateTime('yyyy',Date);
  Edit2.Text := ForMatDateTime('mm',Date);
  Edit3.Text := ForMatDateTime('dd',Date);
  tHtID := HtID;
  tHtName:= HtName;
end;

procedure TfrmWJ_CaoZuo.SetLableCaption(const Mark : integer;const HtName : string);
begin
  case mark of
      1 : begin
               Label1.Caption := '请输入“'+HtName+'”的完工日期';
               frmWJ_CaoZuo.Caption := '合同完工';
          end;
      2 : begin
               Label1.Caption := '请输入“'+HtName+'”的验收日期';
               frmWJ_CaoZuo.Caption := '合同验收';
          end;
      3 : begin
               Label1.Caption := '请输入“'+HtName+'”的结算日期和金额';
               frmWJ_CaoZuo.Caption := '合同结算';
               Edit4.ReadOnly := false;
               Edit4.Color := clWhite;
          end;
  end;
end;

function TfrmWJ_CaoZuo.SetData(const Mark : integer ; const HtID,tDate,tJine : string) : boolean;
begin
  with ADOQuery1 do
       begin
            Close;
            Sql.Clear;
            Sql.Add(' select * from TAIZ ');
            Sql.Add(' where ID= '+#39+HtID+#39);
            Prepared;
            open;
            Edit;
            case Mark of
            1 : begin
                  FieldByName('SFWG').AsString := '是';
                  FieldByName('WGSJ').AsString := tDate;
                end;
            2 : begin
                  FieldByName('SFYS').AsString := '是';
                  FieldByName('YSSJ').AsString := tDate;

                end;
            3 : begin
                  FieldByName('SFJS').AsString := '是';
                  FieldByName('JSSJ').AsString := tDate;
                  FieldByName('JSJE').AsString := tJine;
                end;
            end;
            Post;
       end;
  result := true;
end;

procedure TfrmWJ_CaoZuo.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TfrmWJ_CaoZuo.BitBtn1Click(Sender: TObject);
begin
  GetHtFuJian(tHtID,tHtName);
end;

end.