rent.~pas

学校里做课程设计的东西,在delphi环境下运行,采用Sql2000数据库

unit Rent;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Mask, ComCtrls,
  Qrctrls, Buttons,Variants,PublicUnit, jpeg;

type
  TRentForm = class(TForm)
    Panel4: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label11: TLabel;
    ContractCode: TComboBox;
    Label12: TLabel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel3: TPanel;
    Label2: TLabel;
    DateEdit: TEdit;
    ContractNum: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    MustDate: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label8: TLabel;
    TabSheet3: TTabSheet;
    Panel5: TPanel;
    Panel6: TPanel;
    Label13: TLabel;
    InvoiceCode: TComboBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    SQLQuery: TQuery;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Image1: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    procedure ContractNumChange(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure ContractCodeChange(Sender: TObject);
    procedure MustDateChange(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure InvoiceCodeChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RentForm: TRentForm;
  today : string;

implementation

uses DataModule;


{$R *.DFM}

procedure TRentForm.ContractNumChange(Sender: TObject);
begin
   MustDate.Clear;
   with DataContrls.RTable do
   begin
     First;
     while not Eof do
     begin
       if  FieldByName('合同号').AsString=ContractNum.Text then
          MustDate.Items.Append( FieldByName('应收日期').AsString);
       Next;
     end;
   end;
end;

procedure TRentForm.TabSheet1Show(Sender: TObject);
begin
  DateEdit.Text:=CalTodayDate;   // 形如20030101的今日日期

  ContractNum.Clear;
  with DataContrls.CTable do
  begin
    First;
    while not Eof do
    begin
      if FieldValues['标志'] <> '2' then
         ContractNum.Items.Append(FieldByName('合同号').Asstring);
      Next;
    end;
  end;

  DBEdit1.Enabled:=False;
  DBEdit2.Enabled:=False;
  DBEdit3.Enabled:=False;
  DBEdit4.Enabled:=False;
end;

procedure TRentForm.TabSheet2Show(Sender: TObject);
var
  temp,backup:string;
begin
  temp:='';
  ContractCode.Clear;
  with DataContrls.RTable do
  begin
    Disablecontrols;
    First;
    while not Eof do
    begin
      backup:= FieldByName('合同号').Asstring;
      if backup <> temp then
         ContractCode.Items.Append(backup);
      temp:=backup;
      Next;
    end;
    EnableControls;
  end;
end;

procedure TRentForm.ContractCodeChange(Sender: TObject);
begin
  if ContractCode.Text <> '' then
  begin
    with SQLQuery do
    begin
      //DatabaseName := ExtractFilePath (Application.ExeName);
      Close;
      SQL.Clear;
      SQL.Add('select 应收日期,应收金额,实收金额,实收日期,发票号');
      SQL.Add('from rent');
      SQL.Add('where  合同号= :ContractNo');
      ParamByName('ContractNo').AsInteger:=strtoint(ContractCode.Text);
      prepare;
      Open;
    end;
  end;
end;


procedure TRentForm.MustDateChange(Sender: TObject);
begin
  DataContrls.RTable.Locate('合同号;应收日期',VarArrayOf([ContractNum.Text,MustDate.Text]),[]);

  DBEdit1.Enabled:=True;
  DBEdit2.Enabled:=True;
  DBEdit3.Enabled:=True;
  DBEdit4.Enabled:=True;

  DataContrls.RTable.Edit;
  DBEdit1.Text:=CalTodayDate;
  DataContrls.RTable.Post;
end;

procedure TRentForm.TabSheet3Show(Sender: TObject);
begin
  InvoiceCode.Clear;
  with DataContrls.RTable do
  begin
    Disablecontrols;
    First;
    while not Eof do
    begin
      if  FieldByName('发票号').AsString <>'' then
        InvoiceCode.Items.Append( FieldByName('发票号').AsString);
      Next;
    end;
    EnableControls;
  end;
end;

procedure TRentForm.InvoiceCodeChange(Sender: TObject);
begin
  with  DataContrls.RTable do
  begin
    if Locate('发票号',InvoiceCode.Text,[])then
    begin
      Edit1.Text:=FieldByName('合同号').AsString;
      Edit3.Text:=FieldByName('实收金额').AsString;
      if DataContrls.CTable.Locate('合同号',Edit1.Text,[])then
         Edit2.Text:=DataContrls.CTable.FieldByName('乙方单位').AsString;
    end;
  end;
end;

procedure TRentForm.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TRentForm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TRentForm.BitBtn3Click(Sender: TObject);
begin
  Close;
end;

end.